# ROC

perf <- performance(pred, "cal", window.size = 50)
plot(perf)

perf <- performance(pred, "acc")
plot(perf, avg = "vertical", spread.estimate = "boxplot",
     show.spread.at = seq(0.1, 0.9, by = 0.1))

perf <- performance(pred, "pcmiss", "lift")
plot(perf, colorize = T, print.cutoffs.at = seq(0, 1, by =0.1),
     text.adj = c(1.2, 1.2), avg = "threshold", lwd = 3)

perf <- performance(pred, "rch")
plot(perf)
